home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol354 / manage.arc / INIT.PRG < prev    next >
Encoding:
Text File  |  1986-05-30  |  1.2 KB  |  35 lines
  1. **    Last revision: May 26, 1986 at 18:53
  2. * init.prg initialization program
  3. CLEA
  4. IF .NOT. file ("MANAGE.DAT")
  5.  STOR SPACE(35) TO dconame
  6.  STOR 'C' TO dr
  7. ELSE
  8.  REST from manage.dat additive
  9.  STORE SUBSTR(dconame + SPACE(35),1,35) TO dconame
  10. ENDI .NOT. file
  11. @ 06,00 SAY "Please state company name "
  12. @ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  13. READ
  14. DO WHIL SUBSTR(dconame,1,1) = ' '
  15.  @ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  16.  READ
  17. ENDD WHILE $(dconame)
  18. @ 08,00 SAY "On what drive will you store the data files ?"
  19. @ 08,50 GET dr PICTURE '!'
  20. READ
  21. STOR 'Y' TO goagain
  22. @ 10,30 SAY "IS THE ABOVE CORRECT ? "
  23. @ 10,55 GET goagain PICTURE '!'
  24. READ
  25. IF goagain = 'N'
  26.  @ 10,00
  27.  @ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  28.  @ 08,50 GET dr PICTURE '!'
  29.  READ
  30. ENDI goagain
  31. STOR TRIM(dconame) TO dconame
  32. SAVE all like d*.* TO manage.dat
  33. RETU
  34. 
  35.